home *** CD-ROM | disk | FTP | other *** search
/ Digital Photo Album: Houko Kuwashima / Digital Photo Album: Houko Kuwashima.iso / trump.dxr / 00005.ls < prev    next >
Encoding:
Text File  |  1998-10-08  |  305 b   |  14 lines
  1. on exitFrame
  2.   global objlist, objfglist
  3.   if mouseDown() then
  4.     repeat with i = 1 to 24
  5.       set thisobj to getAt(objlist, i)
  6.       if (the myside of thisobj = 1) and (getAt(objfglist, i) = 1) then
  7.         turnupb(thisobj)
  8.       end if
  9.     end repeat
  10.     go("first_card")
  11.   end if
  12.   go(the frame)
  13. end
  14.